home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 32 / PC Gamer IT CD 32 1-2.iso / ELINK / 14-DAY / CLARISHP / _SETUP.1 / HOMEPAGE.exe / 1009 / 154 < prev    next >
Text File  |  1997-02-20  |  15KB  |  526 lines
  1. // -----
  2. // HLibWind.txt = VDL154.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6.  
  7. //Library
  8. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  9. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  10. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  11.  
  12. //This section contains all localizable string constants for this VDL program. Be sure to 
  13. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  14. //You may also flatten multiline constants into a single line, if you prefer
  15.  
  16. #define kLit1 "Edit Page"
  17. #define kLit2 "Preview Page"
  18. #define kLit3 "Edit HTML Source"
  19. #define kLit4 "New Entry"
  20. #define kLit5 "Object Editor"
  21. #define kLit6 "Link Editor"
  22. #define kLit7 "Insert Anchor"
  23. #define kLit8 "Insert Link To File"
  24. #define kLit9 "Insert Image"
  25. #define kLit10 "Insert Horizontal Rule"
  26. #define kLit11 "Insert Table"
  27. #define kLit12 "Align Text Left "
  28. #define kLit13 "Align Text Center"
  29. #define kLit14 "Align Text Right"
  30. #define kLit15 "Paragraph Format"
  31. #define kLit16 "Normal"
  32. #define kLit17 "Preformatted"
  33. #define kLit18 "Address"
  34. #define kLit19 "Heading 1"
  35. #define kLit20 "Heading 2"
  36. #define kLit21 "Heading 3"
  37. #define kLit22 "Heading 4"
  38. #define kLit23 "Heading 5"
  39. #define kLit24 "Heading 6"
  40. #define kLit25 "Bullet List"
  41. #define kLit26 "Numbered List"
  42. #define kLit27 "Term"
  43. #define kLit28 "Definition"
  44. #define kLit29 "Make Bullet List Entry"
  45. #define kLit30 "Indent"
  46. #define kLit31 "Outdent"
  47. #define kLit32 "Smaller Text"
  48. #define kLit33 "Larger Text"
  49. #define kLit34 "Bold"
  50. #define kLit35 "Italic"
  51. #define kLit36 "Teletype"
  52. #define kLit37 "Make Numbered List Entry"
  53.  
  54. //Localized Fonts
  55. #if Platform_Mac
  56. #define kHelpFont Font = {Geneva, 9, {Italic}}
  57. #endif
  58.  
  59. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  60. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  61. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  62.  
  63.  
  64.  
  65. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  66. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  67. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  68.  
  69. //This section contains integer constants that are used to format this VDL program.
  70. //These are localizable - they only need to be changed if the localized strings 
  71. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  72.  
  73. //This is the width of the popup menu controlling paragraph style.
  74. #define kParagraphStylePopupWidth 124
  75.  
  76.  
  77. #if Platform_Mac
  78. #define kHelpViewWidth 300
  79. #define kHelpViewHeight 20
  80. #endif
  81.  
  82. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  83. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  84. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  85.  
  86. //No further localizable data past this point
  87.  
  88. /************************** END LOCALIZABLE DATA ***************************************************/
  89. /************************** END LOCALIZABLE DATA ***************************************************/
  90. /************************** END LOCALIZABLE DATA ***************************************************/
  91.  
  92. #ifdef TryMe
  93. #define LITE_VERSION 1
  94. #endif
  95.  
  96. #define kStandardPadSpace 9
  97.  
  98. #define EH EnabledHelpString =
  99.  
  100. #if Platform_Mac
  101.     #define ToolSep GenericView("ToolSepView");
  102. #else
  103.     #define ToolSep 
  104. #endif
  105.  
  106. #if Platform_Mac
  107. #define LibBack     BackColor = {57015, 57015, 57015}
  108. #define LibMargin Margin(2,2,2,3, Custom = "HeaderBarMarginProc", Width = UseParent)
  109. #else
  110. #define LibBack     BackColor = Dialog
  111. #define LibMargin Margin(2,2,2,3, Width = UseParent)
  112. #endif
  113.  
  114.  
  115. Define(Buttons)
  116.     HList(LibBack)
  117.         {
  118.         ToolSep
  119.         HList()
  120.             {
  121.             PictRadioButton( "editMode", 0, // ccEditMode : kEditVisual
  122.                                   EH kLit1 )
  123.                 {
  124.                 On (Draw, 'cicn', 13550);
  125.                 Off(Draw, 'cicn', 13010);
  126.                 DisabledOn (Draw, 'cicn', 13561);
  127.                 DisabledOff(Draw, 'cicn', 13561);
  128.                 TrackingOn (Draw, 'cicn', 13550);
  129.                 TrackingOff(Draw, 'cicn', 13550);
  130.                 };
  131.             
  132.             ToolSep
  133.             PictRadioButton( "editMode", 1, // ccEditMode : kBrowseMode
  134.                                   EH kLit2 )
  135.                 {
  136.                 On (Draw, 'cicn', 13551);
  137.                 Off(Draw, 'cicn', 13030);
  138.                 DisabledOn (Draw, 'cicn', 13562);
  139.                 DisabledOff(Draw, 'cicn', 13562);
  140.                 TrackingOn (Draw, 'cicn', 13551);
  141.                 TrackingOff(Draw, 'cicn', 13551);
  142.                 };
  143.             #if !LITE_VERSION
  144.             ToolSep
  145.             PictRadioButton( "editMode", 2, // ccEditMode : kHTMLMode
  146.                                   EH kLit3 )
  147.                 {
  148.                 On (Draw, 'cicn', 13552);
  149.                 Off(Draw, 'cicn', 13050);
  150.                 DisabledOn (Draw, 'cicn', 13563);
  151.                 DisabledOff(Draw, 'cicn', 13563);
  152.                 TrackingOn (Draw, 'cicn', 13552);
  153.                 TrackingOff(Draw, 'cicn', 13552);
  154.                 };
  155.             #endif
  156.             }
  157.         ToolSep
  158.         Spacer(Height = UseParent, Width = kStandardPadSpace);
  159.         
  160.         ToolSep
  161.         PictPushButton(3301, "None", EH kLit4) // ccNewLibraryEntry
  162.             {
  163.             Enabled (Draw, 'cicn', 10200);
  164.             Disabled(Draw, 'cicn', 10202); 
  165.             Tracking(Draw, 'cicn', 10201);
  166.             };
  167.         ToolSep
  168.         Spacer(Height = UseParent, Width = kStandardPadSpace);
  169.         
  170.         ToolSep
  171.         PictPushButton(3101, "None", EH kLit5) // Object Editor
  172.             {
  173.             Enabled(Draw, 'cicn',13503 );
  174.             Disabled(Draw, 'cicn',13505 ); 
  175.             Tracking(Draw, 'cicn',13504 );
  176.             };
  177.         ToolSep
  178.         PictPushButton(3109, "None", EH kLit6) // "Insert/Edit Link"
  179.             {
  180.             Enabled(Draw, 'cicn',13506 );
  181.             Disabled(Draw, 'cicn',13508 ); 
  182.             Tracking(Draw, 'cicn',13507 );
  183.             };
  184.         ToolSep
  185.         
  186.         Spacer(Height = UseParent, Width = kStandardPadSpace);
  187.         ToolSep
  188.         PictPushButton(3013, "None", Draggable, EH kLit7)
  189.             {
  190.             Enabled(Draw, 'cicn',13012 );
  191.             Disabled(Draw, 'cicn',13052 ); 
  192.             Tracking(Draw, 'cicn',13032 );
  193.             };                        
  194.             
  195.         ToolSep
  196.         PictPushButton(3012, "None", Draggable, EH kLit8)
  197.             {
  198.             Enabled(Draw, 'cicn',13011 );
  199.             Disabled(Draw, 'cicn',13051 ); 
  200.             Tracking(Draw, 'cicn',13031 );
  201.             };
  202.         ToolSep
  203.         Spacer(Height = 1, Width = kStandardPadSpace);
  204.                 
  205.         ToolSep
  206.         PictPushButton(3081, "None", EH kLit9)
  207.             {
  208.             Enabled(Draw, 'cicn',13005 );
  209.             Disabled(Draw, 'cicn',13045 ); 
  210.             Tracking(Draw, 'cicn',13025 );
  211.             };
  212.         ToolSep
  213.         PictPushButton(3080, "None", Draggable, EH kLit10)
  214.             {
  215.             Enabled(Draw, 'cicn',13003 );
  216.             Disabled(Draw, 'cicn',13043 ); 
  217.             Tracking(Draw, 'cicn',13023 );
  218.             };
  219.         ToolSep
  220.         
  221.         PictPushButton(3091, "None", Draggable, EH kLit11)
  222.             {
  223.             Enabled(Draw, 'cicn',13060 );
  224.             Disabled(Draw, 'cicn',13062 ); 
  225.             Tracking(Draw, 'cicn',13061 );
  226.             };
  227.         ToolSep
  228.         Spacer(Height = 1, Width = kStandardPadSpace);
  229.         
  230.         /* Text Alignment buttons */
  231.         ToolSep
  232.         PictRadioButton("hAlign", 0, EH kLit12)
  233.             {
  234.             On (Draw, 'cicn', 10019);
  235.             Off(Draw, 'cicn', 10016);
  236.             DisabledOn (Draw, 'cicn', 10022);
  237.             DisabledOff(Draw, 'cicn', 10022);
  238.             TrackingOn (Draw, 'cicn', 10019);
  239.             TrackingOff(Draw, 'cicn', 10019);
  240.             };
  241.         ToolSep
  242.         PictRadioButton("hAlign", 1, EH kLit13)
  243.             {
  244.             On (Draw, 'cicn', 10020);
  245.             Off(Draw, 'cicn', 10017);
  246.             DisabledOn (Draw, 'cicn', 10023);
  247.             DisabledOff(Draw, 'cicn', 10023);
  248.             TrackingOn (Draw, 'cicn', 10020);
  249.             TrackingOff(Draw, 'cicn', 10020);
  250.             };
  251.         ToolSep
  252.         PictRadioButton("hAlign", 2, EH kLit14)
  253.             {
  254.             On (Draw, 'cicn', 10021);
  255.             Off(Draw, 'cicn', 10018);
  256.             DisabledOn (Draw, 'cicn', 10024);
  257.             DisabledOff(Draw, 'cicn', 10024);
  258.             TrackingOn (Draw, 'cicn', 10021);
  259.             TrackingOff(Draw, 'cicn', 10021);
  260.             };
  261.         ToolSep
  262.         } // HList (Buttons)
  263.  
  264.  
  265. Define(StyleBar)
  266.     HList(LibBack)
  267.         {
  268.         Margin(0,0,7,0)
  269.             IntegerPopup( "", 0, "pStyle", Width = kParagraphStylePopupWidth,
  270.                                  EH kLit15, DontBind )
  271.                 {
  272.                 IntItem( kLit16,         0); // hpPlain
  273.                 IntItem( kLit17,   1); // hpPreformatted
  274.                 IntItem( kLit18,        2); // hpAddress
  275.                 IntItem( kLit19,      3); // hpHead1
  276.                 IntItem( kLit20,      4); // hpHead2
  277.                 IntItem( kLit21,      5); // hpHead3
  278.                 IntItem( kLit22,      6); // hpHead4
  279.                 IntItem( kLit23,      7); // hpHead5
  280.                 IntItem( kLit24,      8); // hpHead6
  281.                 IntItem( kLit25,    9); // hpBullet
  282.                 IntItem( kLit26, 12); // hpNumbered
  283.                 IntItem( kLit27,          14); // hpTerm
  284.                 IntItem( kLit28,    13); // hpDefinition
  285.                 };
  286.         
  287.         HList(FullyCovered)
  288.             {
  289.             ToolSep
  290.             PictPushButton(3115, "None", Draggable, EH kLit37) //ccNumberedListEntry
  291.                 {
  292.                 Enabled (Draw, 'cicn', 14050);
  293.                 Disabled(Draw, 'cicn', 14052); 
  294.                 Tracking(Draw, 'cicn', 14051);
  295.                 };            
  296.             
  297.             ToolSep
  298.             PictPushButton(3090, "None", Draggable, EH kLit29) // ccBulletListEntry
  299.                 {
  300.                 Enabled (Draw, 'cicn', 13509);
  301.                 Disabled(Draw, 'cicn', 13511); 
  302.                 Tracking(Draw, 'cicn', 13510);
  303.                 };
  304.             ToolSep
  305.             Spacer(Height = UseParent, Width = kStandardPadSpace);
  306.             
  307.             ToolSep
  308.             PictPushButton(3024, "None", EH kLit30) // ccIndentRight
  309.                 {
  310.                 Enabled (Draw, 'cicn', 14001);
  311.                 Disabled(Draw, 'cicn', 14000); 
  312.                 Tracking(Draw, 'cicn', 14002);
  313.                 };
  314.             ToolSep
  315.             PictPushButton(3023, "None", EH kLit31) // ccIndentLeft
  316.                 {
  317.                 Enabled (Draw, 'cicn', 14004);
  318.                 Disabled(Draw, 'cicn', 14003); 
  319.                 Tracking(Draw, 'cicn', 14005);
  320.                 };
  321.             ToolSep
  322.             Spacer(Height = UseParent, Width = kStandardPadSpace);
  323.             
  324.             ToolSep
  325.             PictPushButton(3027, "None", EH kLit32) // ccDecreaseSize
  326.                 {
  327.                 Enabled (Draw, 'cicn', 14007);
  328.                 Disabled(Draw, 'cicn', 14006); 
  329.                 Tracking(Draw, 'cicn', 14008);
  330.                 };
  331.             ToolSep
  332.             PictPushButton(3026, "None", EH kLit33) // ccIncreaseSize
  333.                 {
  334.                 Enabled (Draw, 'cicn', 14010);
  335.                 Disabled(Draw, 'cicn', 14009); 
  336.                 Tracking(Draw, 'cicn', 14011);
  337.                 };
  338.             ToolSep
  339.             Spacer(Height = UseParent, Width = kStandardPadSpace);
  340.             
  341.             ToolSep
  342.             PictPushButton(3031, "None", EH kLit34) // ccHCharBits + bold
  343.                 {
  344.                 Enabled (Draw, 'cicn', 14013);
  345.                 Disabled(Draw, 'cicn', 14012); 
  346.                 Tracking(Draw, 'cicn', 14014);
  347.                 };
  348.             ToolSep
  349.             PictPushButton(3032, "None", EH kLit35) // ccHCharBits + italic
  350.                 {
  351.                 Enabled (Draw, 'cicn', 14016);
  352.                 Disabled(Draw, 'cicn', 14015); 
  353.                 Tracking(Draw, 'cicn', 14017);
  354.                 };
  355.             ToolSep
  356.             PictPushButton(3033, "None", EH kLit36) // ccHCharBits + teletype
  357.                 {
  358.                 Enabled (Draw, 'cicn', 14019);
  359.                 Disabled(Draw, 'cicn', 14018); 
  360.                 Tracking(Draw, 'cicn', 14020);
  361.                 };
  362.             ToolSep
  363.             
  364.             Spacer(Height = UseParent, Width = kStandardPadSpace);
  365.             #if Platform_Mac
  366.             VList(Height = UseParent)
  367.                 {
  368.                 Spacer(Height = 2, Width = UseParent);
  369.                 GenericView("TextColorPopup");
  370.                 Spacer(Height = UseParent, Width = UseParent);
  371.                 }
  372.             #else
  373.             GenericView("TextColorPopup");
  374.             #endif
  375.             } // Second row buttons
  376.         
  377.         } // HList (StyleBar)
  378.  
  379.  
  380. Margin( 0,0,0,0, LibBack, Height = UseParent,
  381.            Width = UseParent )
  382.     VList(Height = UseParent, Width = UseParent)
  383.         {
  384.         Switch(showToolbars, Width = UseParent)
  385.             {
  386.             case 0: // tmNone
  387.             case 2: // tmInFrame
  388.                 Switch (styleToolbars)
  389.                     {
  390.                     case 1: // tmInWindow
  391.                         VList(Width = UseParent)
  392.                             {
  393.                             LibMargin                            
  394.                                 Margin( 4,3,3,5, LibBack,
  395.                                           Width = UseParent )
  396.                                     Call(StyleBar);
  397.                                 
  398.                             #if Platform_Win
  399.                             Spacer(Height = 1, Width = UseParent, BackColor = DkGray);
  400.                             Spacer(Height = 1, Width = UseParent, BackColor = Black);
  401.                             #endif
  402.                             }
  403.                     
  404.                     default:
  405.                         Spacer(Width=0,Height=0);
  406.                     }
  407.             
  408.             case 1: // tmInWindow
  409.                     LibMargin
  410.                         Margin( 4,3,3,5, LibBack,
  411.                               Width = UseParent )
  412.                         VList(Width = UseParent)
  413.                             {
  414.                             HList(Width = UseParent)
  415.                                 {
  416.                                 Call(Buttons);
  417.                                 
  418.                                 Spacer(Height = UseParent, Width = kStandardPadSpace);
  419.                                 
  420.                                 #if Platform_Mac
  421.                                     HelpView(Width = kHelpViewWidth, Height = kHelpViewHeight, kHelpFont);
  422.                                 #endif
  423.                                 }
  424.                             
  425.                             Switch (styleToolbars)
  426.                                 {
  427.                                 case 1: // tmInWindow
  428.                                     VList()
  429.                                         {
  430.                                         Spacer(Width=0, Height=6);
  431.                                         Call(StyleBar);
  432.                                         }
  433.                                 
  434.                                 default:
  435.                                     Spacer(Width=0,Height=0);
  436.                                 }
  437.                                 
  438.                             #if Platform_Win
  439.                             Spacer(Height = 1, Width = UseParent, BackColor = DkGray);
  440.                             Spacer(Height = 1, Width = UseParent, BackColor = Black);
  441.                             #endif
  442.                             } // VList
  443.             }
  444.         
  445.         VSplit(Height = UseParent, Width = UseParent,
  446.                     MinLeftPixels = 75, MinRightPixels = 75)
  447.             {
  448.             //Upper View
  449.             Tag(ListView)
  450.                 GenericView("LibraryListProc");                        
  451.             
  452.             //Splitter
  453.             HList(Width = UseParent, BackColor = {0xEEEE, 0xEEEE, 0xEEEE})    
  454.                 {
  455.                 // Spacer(Width = 5);
  456.                 #if Platform_Mac
  457.                 VList(Width = UseParent)
  458.                 #else
  459.                 VList(Width = UseParent, BackColor = {45000,45000,45000} )
  460.                 #endif
  461.                     {
  462.                     Spacer(Height = 1, BackColor = {0, 0, 0});
  463.                     Spacer(Height = 1, BackColor = {65535, 65535, 65535});
  464.                     
  465.                     #if Platform_Mac
  466.                         Spacer(Height = 2, BackColor = {0xEEEE, 0xEEEE, 0xEEEE});
  467.                     #else
  468.                         Spacer(Height = 3, BackColor = {45000,45000,45000});
  469.                     #endif
  470.                     
  471.                     HList(Width = UseParent)
  472.                         {
  473.                         Spacer(Height = UseParent, Width = 5);
  474.                         #if Platform_Mac
  475.                             Spacer(Height = 1, BackColor = {65535, 65535, 65535});
  476.                         #else
  477.                             Spacer(Height = 1, BackColor = {45000, 45000, 45000});
  478.                         #endif
  479.                         Spacer(Height = UseParent, Width = 5);
  480.                         }
  481.                     
  482.                     #if Platform_Mac
  483.                     HList(Width = UseParent)
  484.                         {
  485.                         Spacer(Height = UseParent, Width = 5);
  486.                         Spacer(Height = 1, BackColor = {0x6666, 0x6666, 0x6666});
  487.                         Spacer(Height = UseParent, Width = 5);
  488.                         }
  489.                     HList(Width = UseParent)
  490.                         {
  491.                         Spacer(Height = UseParent, Width = 5);
  492.                         Spacer(Height = 1, BackColor = {65535, 65535, 65535});
  493.                         Spacer(Height = UseParent, Width = 5);
  494.                         }
  495.                     HList(Width = UseParent)
  496.                         {
  497.                         Spacer(Height = UseParent, Width = 5);
  498.                         Spacer(Height = 1, BackColor = {0x6666, 0x6666, 0x6666});
  499.                         Spacer(Height = UseParent, Width = 5);
  500.                         }
  501.                     
  502.                         Spacer(Height = 3, BackColor = {0xEEEE, 0xEEEE, 0xEEEE});
  503.                         Spacer(Height = 1, BackColor = {0x8888, 0x8888, 0x8888});
  504.                     #else
  505.                         //Main bar
  506.                         Spacer(Height = 1, BackColor = {0x6666, 0x6666, 0x6666});
  507.                         Spacer(Height = 1, BackColor = {65535, 65535, 65535});
  508.                         Spacer(Height = 1, BackColor = {0x6666, 0x6666, 0x6666});
  509.                         
  510.                         Spacer(Height = 3, BackColor = {45000, 45000, 45000});
  511.                         Spacer(Height = 1, BackColor = {25000, 25000, 25000});
  512.                     #endif
  513.                     
  514.                     
  515.                     Spacer(Height = 1, BackColor = {0, 0, 0});
  516.                     }
  517.                 // Spacer(Width = 5);
  518.                 }
  519.             
  520.             //Lower Pane
  521.             GenericView("LibraryViewProc");                        
  522.             
  523.             } //VSplit
  524.         } //VList
  525.  
  526.